From d84dd9076e7da1f59c15834d5c8ae49cce95e83a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 31 Jan 2001 12:22:25 +0000 Subject: [PATCH] (Fmake_list): Add a QUIT in the loop; unroll the loop. --- src/alloc.c | 34 ++++++++++++++++++++++++++++++++-- 1 file changed, 32 insertions(+), 2 deletions(-) diff --git a/src/alloc.c b/src/alloc.c index 4134d26fbd9..4affa42e683 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -2142,8 +2142,38 @@ DEFUN ("make-list", Fmake_list, Smake_list, 2, 2, 0, size = XFASTINT (length); val = Qnil; - while (size-- > 0) - val = Fcons (init, val); + while (size > 0) + { + val = Fcons (init, val); + --size; + + if (size > 0) + { + val = Fcons (init, val); + --size; + + if (size > 0) + { + val = Fcons (init, val); + --size; + + if (size > 0) + { + val = Fcons (init, val); + --size; + + if (size > 0) + { + val = Fcons (init, val); + --size; + } + } + } + } + + QUIT; + } + return val; } -- 2.30.2